<%
    ' Abre una conexion a la base de datos
    function Conectar()
        dim conexion
        set conexion = Server.CreateObject("ADODB.Connection")
        conexion.Open "DRIVER={SQL Server};SERVER=localhost;UID=sa;PWD=123456789;DATABASE=TuTicket"
        set Conectar = conexion
    end function

    ' Cierra la conexion de la base de datos
    function Desconectar(Conexion)
	    Conexion.Close
    end function

    ' Obtiene datos de la base de datos
    function ConsultarBDD(Consulta, Conexion)
	    Set objcommand = Server.CreateObject("ADODB.Command")
	    objcommand.activeconnection = Conexion
	    objcommand.commandtext = Consulta
	    Set resultado = Server.CreateObject("ADODB.recordset")
	    Set resultado = objcommand.execute()
	    set ConsultarBDD = resultado
    end function

    ' Ejecuta una consulta en la base de datos
    function EjecutarConsulta(Consulta, Conexion)
	    Set objcommand=Server.CreateObject("ADODB.Command")
	    objcommand.activeconnection = Conexion
	    objcommand.commandtext = Consulta
        response.Write(Consulta)
	    objcommand.execute()
	    EjecutarConsulta = true
    end function

    ' Retorna el identificadores maximo de un registro en la tabla
    function obtener_ultimo_id(tabla, id)
	    set conexion = Conectar()
	    consulta = "SELECT MAX(" & id & ") FROM " & tabla
	    set rs = ConsultarBDD(consulta,conexion)
	    while not rs.eof
		    id=rs.fields(0)
		    rs.movenext
	    wend
	    obtener_ultimo_id = id
    end function

    ' Registra en la bitacora un movimiento
    Sub AgregarMovimiento(Descripcion, Nivel, IdUsu, DVH)
	    EjecutarConsulta "INSERT INTO BITACORA(DESCRIPCION, NIVEL, FECHA, ID_USUARIO, DVH) VALUES ('" & Descripcion & "','" & Nivel &"','" & formatdatetime(now(),vbgeneraldate) & "'," & IdUsu & "," & DVH & ")", conexion
    end sub
%>